home *** CD-ROM | disk | FTP | other *** search
/ Clickx 13 / Clickx 13.iso / mac / Grafisch / Geo3D 2.0 / Sample Scripts / Groups < prev    next >
Encoding:
Text File  |  2000-06-30  |  538 b   |  20 lines  |  [TEXT/ToyS]
  1. tell application "Geo3D"
  2.     activate
  3.     make new document
  4.     set x to import groups from file ":Sample Scripts:Demo.grp"
  5.     if x > 0 then -- 0: error; x includes menu separators!
  6.         full screen
  7.         repeat with x from 1 to x
  8.             -- if x is a menu separator it will be ignored by Geo3D.
  9.             -- Return value: false
  10.             show group x -- without multi (default)
  11.         end repeat
  12.         show -- show all
  13.         show with multi -- hide all
  14.         repeat with x from 1 to 4
  15.             show group x with multi
  16.         end repeat
  17.         show group 3 with multi -- hide group 3
  18.         stack
  19.     end if
  20. end tell